home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 245 / radiohgh.lst < prev    next >
File List  |  1988-10-10  |  4KB  |  146 lines
  1. ialog_box
  2. Prooocedure Dialog_box
  3.   ' DIALOG CONSTRUCTION SET (c) Programmed by Derrick Anthony Hall
  4.   '
  5.   '     PERMISSION GRANTED TO USE DIALOG CONSTRUCTION SET (c)
  6.   '       GENERATED SOURCE CODE WITHIN GFA BASIC PROGRAMS.
  7.   '
  8.   '   Source code can be published or upload to bulletin boards.
  9.   '
  10.   ' I only ask that you give VISIBLE CREDIT within your program to
  11.   '            Dialog Construction Set resource editor.
  12.   '
  13.   '                    Have fun and enjoy!
  14.   '         Merge this source LST file into your program
  15.   @Shrink_grow(1,5,5,5,5,96,32,442,272)
  16.   Sget Yourname$
  17.   Graphmode 1
  18.   Deffill 0,2,8
  19.   '                      DIALOG box parameters
  20.   ' Box #1
  21.   ' Insert Deffill here, to fill boxes with color or pattern
  22.   Pbox 119,67,522,347
  23.   Box 119,67,522,347
  24.   Deffill 0,2,8   !reset Deffill to normal, if box area is colored or filled.
  25.   ' Box #2
  26.   ' Insert Deffill here, to fill boxes with color or pattern
  27.   Deffill 1,2,6
  28.   Pbox 121,71,520,343
  29.   Box 121,71,520,343
  30.   Deffill 0,2,8   !reset Deffill to normal, if box area is colored or filled.
  31.   ' Box #3
  32.   ' Insert Deffill here, to fill boxes with color or pattern
  33.   Pbox 141,84,505,105
  34.   Box 141,84,505,105
  35.   Deffill 0,2,8   !reset Deffill to normal, if box area is colored or filled.
  36.   ' Box #4
  37.   ' Insert Deffill here, to fill boxes with color or pattern
  38.   Pbox 164,126,482,292
  39.   Box 164,126,482,292
  40.   Deffill 0,2,8   !reset Deffill to normal, if box area is colored or filled.
  41.   '                   TOUCHEXIT button parameters
  42.   ' Box #1
  43.   ' Insert Deffill here, to fill boxes with color or pattern
  44.   Pbox 292,315,361,339
  45.   Box 292,315,361,339
  46.   Deffill 0,2,8   !reset Deffill to normal, if box area is colored or filled.
  47.   '                     RADIO button parameters
  48.   ' Box #1
  49.   Clr Radio1%
  50.   ' Insert Deffill here, to fill boxes with color or pattern
  51.   Pbox 227,158,415,186
  52.   Box 227,158,415,186
  53.   Deffill 0,2,8   !reset Deffill to normal, if box area is colored or filled.
  54.   ' Box #2
  55.   Clr Radio2%
  56.   ' Insert Deffill here, to fill boxes with color or pattern
  57.   Pbox 227,219,414,247
  58.   Box 227,219,414,247
  59.   Deffill 0,2,8   !reset Deffill to normal, if box area is colored or filled.
  60.   '      To change text FONT and COLOR use the command DEFTEXT
  61.   Text 318,333,"OK"
  62.   Text 288,177,"Radio One"
  63.   Text 290,240,"Radio Two"
  64.   Text 192,100,"Radio demo by Derrick Anthony Hall"
  65.   Do
  66.     K=Mousek
  67.     While K=1
  68.       Mouse X,Y,K
  69.       If X>292 And Y>315 And X<361 And Y<339 And K
  70.         Graphmode 2
  71.         Deffill 1,2,8
  72.         Pbox 292,315,361,339
  73.         Graphmode 3
  74.         Text 318,333,"OK"
  75.         Pause 8
  76.         Goto Buttonend
  77.       Endif
  78.       If X>227 And Y>158 And X<415 And Y<186 And K
  79.         Deffill 1,2,8
  80.         If Radio1%=0
  81.           Radio1%=1
  82.           Deftext 0
  83.           Graphmode 1
  84.           Pbox 227,158,415,186
  85.           Graphmode 2
  86.           Text 288,177,"Radio One"
  87.           Pause 8
  88.         Else
  89.           Graphmode 1
  90.           Radio1%=1
  91.           Deffill 0,2,8
  92.           Pbox 227,158,415,186
  93.           Box 227,158,415,186
  94.           Deftext 1
  95.           Text 288,177,"Radio One"
  96.           Radio1%=0
  97.           Pause 8
  98.         Endif
  99.       Endif
  100.       If X>227 And Y>219 And X<414 And Y<247 And K
  101.         Deffill 1,2,8
  102.         If Radio2%=0
  103.           Radio2%=1
  104.           Deftext 0
  105.           Graphmode 1
  106.           Pbox 227,219,414,247
  107.           Graphmode 2
  108.           Text 290,240,"Radio Two"
  109.           Pause 8
  110.         Else
  111.           Graphmode 1
  112.           Radio2%=1
  113.           Deffill 0,2,8
  114.           Pbox 227,219,414,247
  115.           Box 227,219,414,247
  116.           Deftext 1
  117.           Text 290,240,"Radio Two"
  118.           Radio2%=0
  119.           Pause 8
  120.         Endif
  121.       Endif
  122.     Wend
  123.   Loop
  124.   Buttonend:
  125.   Sput Yourname$
  126.   Clr Yourname$
  127.   Graphmode 1
  128.   @Shrink_grow(0,5,5,5,5,104,38,482,327)
  129. Return
  130. '
  131. Procedure Shrink_grow(Gem,Lightx,Lighty,Wsgx,Hsgy,Lox,Loy,Wx,Hy)
  132.   Dpoke Gintin,Lightx
  133.   Dpoke Gintin+2,Lighty
  134.   Dpoke Gintin+4,Wsgx
  135.   Dpoke Gintin+6,Hsgy
  136.   Dpoke Gintin+8,Lox
  137.   Dpoke Gintin+10,Loy
  138.   Dpoke Gintin+12,Wx
  139.   Dpoke Gintin+14,Hy
  140.   If Gem=1
  141.     Gemsys (73)
  142.   Else
  143.     Gemsys (74)
  144.   Endif
  145. Return
  146.